home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PPC1B3AA.ZIP
/
DEBUG.PPS
< prev
next >
Wrap
Text File
|
1996-08-29
|
799b
|
33 lines
;----------------------------------------------------------------------------
; Copyright(C) 1996, The AEGiS Corporation
;----------------------------------------------------------------------------
;
; PROCEDURE Debug()
;
; Simple debug procedure. Saves screen state (color, cursor location)
; moves to the first line & column, writes your debug value, and restores
; screen state.
;
;----------------------------------------------------------------------------
#lib
#nouser
Declare Procedure Debug(String DebugValue)
;----------------------------------------------------------------------------
Procedure Debug(string DebugValue)
int x
int y
int c
x = getx()
y = gety()
c = curcolor()
ansipos 1,1
print "@X0F" + DebugValue," "
ansipos x,y
color c
Endproc